2400 POKE198,0
2500 GOSUB2680
2510 FORI=869TO922:READD:POKEI,D:NEXT:REM DATA FOR ML BIT MAP CLEAR
2520 FORI=923TO956:READD:POKEI,D:NEXT:REM DATA FOR ML COLOR FILL
2530 BM=8192:POKE53272,PEEK(53272)OR8:REM PUT BIT MAP AT 8192
2540 SYS869:REM CLEAR BIT MAP
2550 PIXCOL=2:SCRCOL=1:POKE251,PIXCOL*16+SCRCOL
2560 SYS923:REM SET COLOR MATRIX
2570 POKE53265,PEEK(53265)OR32:REM ENTER BIT MAP MODE
2580 REM HI-RES PLOT
2590 FORY=60TO132:X=40
2600 GOSUB2920
2610 NEXTY
2620 FORX=110TO210:Y=28
2630 GOSUB2920
2640 NEXTX
2650 FORX=96TO182:Y=X
2660 GOSUB2920
2670 NEXTX:GOTO2740
2680 FORI=828TO868:READD:POKEI,D:NEXT:REM DATA FOR ML CHARACTER ROM COPY
2690 POKE56334,PEEK(56334)AND254:REM TURN OFF INTERRUPTS
2700 POKE1,PEEK(1)AND251:REM SWITCH IN CHARACTER ROM
2710 SYS828:REM COPY 128 CHARACTERS TO RAM STARTING AT 50176
2720 POKE1,PEEK(1)OR4:REM SWITCH OUT CHARACTER ROM
2730 POKE56334,PEEK(56334)OR1:RETURN:REM ENABLE INTERRUPTS
2740 REM PRINT TEXT
2750 TX=24:TY=68:TCOL=5:D=320:TEXT$="VERTICAL"
2760 GOSUB2960
2770 TX=120:TY=16:TCOL=0:D=8:TEXT$="HORIZONTAL"
2780 GOSUB2960
2790 TX=120:TY=104:TCOL=4:D=328:TEXT$="DIAGONAL"
2800 GOSUB2960
2810 TX=160:TY=64:TCOL=2:D=8:TEXT$="CHARACTERS, TOO:"
2820 GOSUB2960
2830 TX=160:TY=80:TCOL=6:D=8:TEXT$="[223] [182] [184] [183] [172] [176] [171] [177]"
2840 GOSUB2960
2850 TY=104:TCOL=2:TEXT$="[209] [218] [216] [193] [211] [214] [213] [215]"
2860 GOSUB2960
2870 GETA$:IFA$=""THEN2870:REM PRESS ANY KEY TO RETURN TO BASIC
2880 POKE53265,PEEK(53265)AND223:REM EXIT FROM BIT MAP MODE
2890 POKE53272,21:REM RESTORE NORMAL VIDEO
2900 PRINTCHR$(147)CHR$(5)
2910 END
2920 REM HI-RES PLOT SUBROUTINE
2930 ROW=INT(Y/8):CHAR=INT(X/8):LINE=YAND7:BIT=7-(XAND7)
2940 BYTE=BM+ROW*320+CHAR*8+LINE:POKEBYTE,PEEK(BYTE)OR2^BIT
2950 RETURN
2960 REM TEXT PRINT SUBROUTINE
2970 BM=8192:SCRCOL = 1
2980 ROW=INT(TY/8):CHAR=INT(TX/8)
2990 BYTE=BM+ROW*320+CHAR*8
3000 FORI=1TOLEN(TEXT$)
3010 POKE1024+(BYTE-BM)/8,TCOL*16+SCRCOL
3020 SV=ASC(MID$(TEXT$,I,1)):REM GET ASCII
3030 IFSV<64THEN3060
3040 IFSV<192THENSV=SV-64:GOTO3060
3050 SV=SV-128
3060 CA=50176+SV*8
3070 FORJ=0TO7
3080 POKEBYTE+J,PEEK(CA+J)
3090 NEXTJ
3100 BYTE=BYTE+D
3110 NEXTI
3120 RETURN
3130 DATA234,72,138,72,152,72,160,0,185,0,208,153,0,196,185,0,209,153,0,197,185
3140 DATA0,210,153,0,198,185,0,211,153,0,199,200,208,229,104,168,104,170,104,96
3150 DATA234,72,138,72,152,72,162,32,169,0,133,251,138,133,252,160,0,169,0
3160 DATA145,251,200,208,251,232,224,63,208,239,169,0,133,251,169,63,133,252
3170 DATA160,0,169,0,145,251,200,192,64,208,249,104,168,104,170,104,96
3180 DATA234,72,138,72,152,72,160,0,173,251,0,153,0,4,153,250,4,153,244,5,153
3190 DATA238,6,200,192,250,208,239,104,168,104,170,104,96